home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
bbs_door
/
ant12.zip
/
ANTENNA.WCC
< prev
next >
Wrap
Text File
|
1996-01-17
|
5KB
|
111 lines
'I started out with a notion that some of my ham friends that build a lot of
'antennas might be interested in calling my BBS, plugging in the numbers and
'getting the results online. That would save them finding their calculator
'to do the math. As far as that goes the program doesn't do anything except
'to show the versatility of the wcCODE program from MSI.
'
'
'This software is FreeWare.... You are hearby directed to make an attempt to
'get another person interested in AMATEUR RADIO.... Then another.... Quite
'a high price.... :)
'
'
Dim configfile as string 'antenna.cfg...should be in the dir with .WCX
Dim SysopName as string 'Name will be in the header of the display file
Dim BBSName as string 'Name will be in the header of the display file
Dim File_Path as String 'c:\wildcat\antenna.bbs or f:\wildcat\antenna.bbs
Dim Ham_Call as String 'your Amateur call
'start sub out from center
sub outfromcenter (line as integer, what as string, stcolor as string)
dim l as integer 'this is a very interesting sub
what = what + " " 'imagine that
what = left (what,int(len(what)/2)*2)
print "@NOPAUSE@"+stcolor
for l = 1 to (len(what)/2)
delay .03 'sets time delay between characters while printing out from center
locate (line,40-l)
print left(what,l);right(what,l)
next l
end sub 'end sub
readconfig: 'label
configfile = "antenna.cfg" 'default config file
if exists(progpath+configfile) then 'look for config file
open progpath+configfile for input as #2 'open file if it is there
input #2, SysopName 'else build me a new file in the right
input #2, BBSName 'directory and let me put my personal
input #2, File_Path 'information in it.
input #2, Ham_Call
close #2 'skip this section if file found
goto 1
else
cls
print "Looking for antenna.cfg............" 'tell sysop what were doing
print
print "There appears to be no config file present"
print
print "The file is antenna.cfg and if a file of that name exist it will"
print "be overwritten. It must be in the directory with antenna.wcx"
print 'let him decide if he wants to create a new file
if inputyesno ("Do you wish to create one ") then
cls
print
print "What is the SysOp Name ?"
input "" ; SysopName
print 'personalizes the door screen with your Sysop's name
print "What is the BBS Name ?"
input "" ; BBSName
print 'personalizes the door screen with your BBS name
print "What is the path to your Display file (antenna.bbs) "
print
print "for example C:\WILDCAT\ANTENNA.BBS"
print 'show him an example. Mine is f:\wildcat\antenna.bbs
input "" ; File_Path
print
print "Who's name should users send messages to about Ham Radio?"
input "" ; Ham_Call
open progpath+configfile for output as #2 'file exist so lets open it
print #2, SysopName 'and get this info for are Door screen
print #2, BBSName 'dito
print #2, File_Path 'dito
print #2, Ham_Call 'dito
close #2 'close it in case someone calls on the other node
else
end if
end if
1
dim num3 as Real 'I would be eternally gratefull.
dim ipos as integer 'insert a thing or two for sport that don't do anything
Dim innum as String 'HI HI :)
10 CLS
locate 1,13
print "@0B@"BBSName+" @0B@ BBS"+" @0F@ version 1.2@0B@ Sysop@0F@ "+SysopName
if ANSIDetected then DisplayTextFile(File_Path)
outfromcenter (10,"This will get you in the ballpark. Final trimming will be nessassary","@0B@")
locate 14,10
print"Input your frequency in megacycles... 0 to return to BBS ";
locate 20,17
print "Ask@87@ ";Ham_Call;"@0A@ about becomming a Ham@03@"
locate 14,67
input num3
if (num3)<=0 then 100 'also prevents division by zero error
activitylog"----> Ran Antenna program online....." 'scribble the log
cls
moreprompt off
locate 1,13
print "@0B@"BBSName+" @0B@ BBS"+" @0F@ version 1.2@0B@ Sysop@0F@ "+SysopName
if ANSIDetected then DisplayTextFile(File_Path)
locate 10,10
print" The length should be approximatly ";468/num3;" feet."
locate 11,10
Print" or ";468/num3*12;" in."
locate 13,10
Print " The length of wire in a folded dipole ";960/num3;" feet."
locate 14,10
Print " or ";960/num3*12;" inches."
locate 17,10
if InputYesNo("Would you like to figure another antenna? Y/N ") then goto 10
100
end
end